home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / mymatch / install_mymatch < prev    next >
Text File  |  1999-04-19  |  2KB  |  108 lines
  1. ; Installer Script for MyMatch
  2. ; $VER: Install_MyMatch V_1.0 (11.04.99)
  3.  
  4. (set #install-docs
  5. (cat " Install documentation?\n"
  6.      "This consists of 2 files and their icons.\n"
  7. ))
  8.  
  9. (set #goodbye
  10. (cat "\nInstallation of MyMatch is Complete.\n\n"
  11. ))
  12.  
  13. (set #my-address
  14. (cat    "Donald T Becker\n"
  15.     "335 S Chestnut St\n"
  16.     "Mt Carmel Pa 17851-2219\n\n"
  17.     "email:   strdustr@ptd.net\n"
  18.     "IRC:     StarDustr!StarDustr@*.ptd.net\n"
  19. ))
  20.  
  21. (set mmver (getversion "AmIRC/Rexx/MyMatch.amirx"))
  22. (set mrver (getversion "Rexx/MatchResolve.rexx"))
  23. ;********************************************************************
  24.  
  25. (complete 10)
  26. (set target1            (askdir
  27.     (prompt "Select Directory where your AmIRC program is")
  28.     (help "This directory should also have a  Rexx  directory in it")
  29.     (default "RAM:")
  30. ))
  31.  
  32. (set target2 (tackon target1 "Rexx"))
  33. (set mmfile (tackon target1 "Rexx/MyMatch.amirx"))
  34. (set mrfile ("Rexx:MatchResolve.rexx"))
  35.  
  36. (set oldver (- 1 1))
  37. (if (Exists mmfile) (
  38.     (set oldver (getversion mmfile))
  39. ))
  40.  
  41. (complete 25)
  42. (if (> mmver oldver)(
  43.     (complete 50)
  44.     (copyfiles (
  45.         (source  "AmIRC/Rexx")
  46.         (dest    target2)
  47.         (choices "MyMatch.amirx")
  48.     ))
  49. ))
  50.  
  51. (set oldver (- 1 1))
  52. (if (Exists mrfile) (
  53.     (set oldver (getversion mrfile))
  54. ))
  55.  
  56. (complete 40)
  57. (if (> mrver oldver)(
  58.     (complete 50)
  59.     (copyfiles (
  60.         (source  "Rexx")
  61.         (dest    "Rexx:")
  62.         (choices "MatchResolve.rexx")
  63.     ))
  64. ))
  65.  
  66. (complete 55)
  67. (copyfiles (
  68.     (prompt  "Select Data Files you wish Installed")
  69.     (help    "These files contain Non-Standard Domains/IPs for use by MyMatch")
  70.     (source  "AmIRC")
  71.     (dest    target1)
  72.     (choices "America.USA.MyMatch" "Australia.AU.MyMatch"
  73.         "Canada.CA.MyMatch" "France.FR.MyMatch"
  74.         "Netherlands.NL.MyMatch" "Sweden.SE.MyMatch"
  75.         "Thailand.TH.MyMatch" "UnitedKingdom.UK.MyMatch"
  76.         "Yugoslavia.YU.MyMatch")
  77.     (CONFIRM)
  78.     )
  79. )
  80.  
  81. (complete 70)
  82. (set docs (askbool (prompt #install-docs)
  83.         (help #install-docs-help)
  84.         (choices "YES" "NO")
  85.       )
  86. )
  87.  
  88. (complete 85)
  89. (if (= docs 1)                (
  90.     (set target3            (askdir
  91.         (prompt "Select Directory for MyMatch.doc")
  92.         (help "Directory where MyMatch.doc will be copied to.")
  93.         (default target1)
  94.     ))
  95.     (copyfiles (
  96.         (prompt  "Select Docs you wish Installed")
  97.         (help "Documentation.")
  98.         (source  "Docs")
  99.         (dest    target3)
  100.         (choices "DISCLAIMER" "MyMatch.readme")
  101.         (CONFIRM)
  102.     ))
  103. ))
  104.  
  105. (complete 100) (message #goodbye #my-address)
  106.  
  107. (exit (quiet))
  108.